Gyakorló feladat tömbök előállítására:
Tömb feltöltése n darab véletlen számmal
program Tombfeltoltes;
uses crt;
var i,n:integer;
a:array [1..100] of integer;
BEGIN
clrscr;
i:=1;
n:=
5
10
20
;
while (i<=n) do begin
a[i]:=trunc(
*random+1);
i:=i+1;
writeln('A tomb ',i,'. eleme:',a[i]);
end;
END.
